home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Pascal / Libraries / DBL Pascal Library / INIT Shell Folder / INIT Shell ƒ / Shell ƒ / INITShellResident.p < prev    next >
Encoding:
Text File  |  1990-05-28  |  1.1 KB  |  34 lines  |  [TEXT/PJMM]
  1. unit INITShellResident;
  2. {Copyright © 1990, David B. Lamkins}
  3. {All rights reserved.}
  4.  
  5. {This unit must be compiled as a separate project, since code resource projects cannot have}
  6. {multiple segments.  We need this to be in a separate segment from the INIT loader since we}
  7. {depend upon the presence of a the standard code header as a place to stash a handle to any}
  8. {globals we may need for the patch.  Also, it is much easier and safer to size and detach a}
  9. {separate resource for the patch code than it is to play games with address arithmetic and}
  10. {call _BlockMove to make a copy of the patch code.  By convention this code resource will}
  11. {have a type of 'IRES' (see INITShellLoader).}
  12.  
  13. interface
  14.  
  15.     uses
  16.         INITShellGlobals, InitShellInlines, Retrace;
  17.  
  18.     procedure main;
  19.  
  20. implementation
  21.  
  22. {$D-}
  23. {$V-}
  24. {$R-}
  25.  
  26. {This is the resident code.  It may have local variables.  Global data must be accessed through}
  27. {the handle obtained from the GlobalsHandle function.  See the INITShellInlines unit for further}
  28. {programming details.}
  29.     procedure main;
  30.     begin
  31.     {Your code goes here…}
  32.     end;
  33.  
  34. end.